home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / video / fly8111-.000 / fly8111- / fly8 / otarget.c < prev    next >
C/C++ Source or Header  |  1979-12-31  |  845b  |  49 lines
  1. /* --------------------------------- otarget.c ------------------------------ */
  2.  
  3. /* This is part of the flight simulator 'fly8'.
  4.  * Author: Eyal Lebedinsky (eyal@ise.canberra.edu.au).
  5. */
  6.  
  7. /* object: target.
  8. */
  9.  
  10. #include "fly.h"
  11.  
  12.  
  13. static SHAPE shape_target = {
  14.     0,
  15.     0,
  16.     SH_BEHIT,
  17.     100*1000L,    /* weight */
  18.     0        /* drag */
  19. };
  20.  
  21. LOCAL_FUNC int FAR
  22. create_target (OBJECT *p)
  23. {
  24.     p->color = CC_GREEN;
  25.     p->time = FOREVER;
  26.     p->flags |= F_VISIBLE|F_EXPORTED;
  27.     p->damage = 1;
  28.     p->damaging = 1;
  29.     p->R[X] = (Frand () % 6000 - 3000)*(long)VONE;
  30.     p->R[Y] = (Frand () % 6000 - 3000)*(long)VONE;
  31.     p->R[Z] = (Frand () % 3000       )*(long)VONE + 500*VONE;
  32.     p->da[Z] = (Frand () % VD90  - VD90)*4;
  33.     Mident (p->T);
  34.     return (0);
  35. }
  36.  
  37. BODY FAR BoTarget = {
  38.     0,
  39.     0,
  40.     "TARGET",
  41.     &shape_target,
  42.     gen_read,
  43.     gen_term,
  44.     create_target,
  45.     gen_delete,
  46.     gen_dynamics,
  47.     gen_hit
  48. };
  49.